'- API Declarations -------------------------------
Public Declare Function WNetConnectionDialog Lib "mpr.dll" (ByVal hwnd As Long, ByVal dwType As Long) As Long
Public Declare Function WNetDisconnectDialog Lib "mpr.dll" (ByVal hwnd As Long, ByVal dwType As Long) As Long
Public Declare Function GetDriveType Lib "Kernel32" Alias "GetDriveTypeA" (ByVal sDrive As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Public Declare Function GetTempPath Lib "Kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Public Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociateIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long
'- API Constants ------------------------------
Public Const DRIVE_CDROM = 5
Public Const DRIVE_FIXED = 3
Public Const DRIVE_RAMDISK = 6
Public Const DRIVE_REMOTE = 4
Public Const DRIVE_REMOVABLE = 2
Public Const ERROR_SUCCESS = 0&
Public Const RESOURCETYPE_DISK = &H1
Public Const WM_SETREDRAW = &HB
Public Const REDRAWOFF = 0
Public Const REDRAWON = 1
'- Icon Image Index Constants -----------------
Public Const TFOLDERCLOSED = 1
Public Const TFOLDEROPEN = 2
Public Const TFLOPPY514 = 3
Public Const TFLOPPY35 = 4
Public Const THARDDRIVE = 5
Public Const TNETDRIVE = 6
Public Const TCDROMDRIVE = 7
Public Const TMYCOMPUTER = 8
Public Const TINTERNET = 9
Public Const TDESKTOP = 10
Public Const TRAMDRIVE = 11
Public Const TFILE = 12
Public Const TSHORTCUTCLOSED = 13
Public Const TSHORTCUTOPEN = 14
Public Const TSHORTCUTFILE = 15
Public Const TBPREVIOUS = 1
Public Const TBNEW = 2
Public Const TBNETCONNECT = 3
Public Const TBTBNETDISCONNECT = 4
Public Const TBCUT = 5
Public Const TBCOPY = 6
Public Const TBPASTE = 7
Public Const TBUNDODELETE = 8
Public Const TBDELETE = 9
Public Const TBPROPERTIES = 10
Public Const TBVIEWLARGEICONS = 11
Public Const TBVIEWSMALLICONS = 12
Public Const TBVIEWLIST = 13
Public Const TBVIEWDETAILS = 14
'- Global Variables ---------------------------
Public gUniqueID As Long
Public Const FMTINDEX = "00" ' FTP Control Index Format = (00..99)
Public Const FMTUID = "000" ' Unique ID Format Allows For 999 Unique Forms
Public Const FMTDATETIME = "mm/dd/yy hh:mm AMPM" ' File Date & Time Format
'- ListView Column Constants -----------------
Public Const LVCOLFILESIZE = 1 ' ListView File Size Column Number
Public Const LVCOLFILETYPE = 2 ' ListView File Type Column Number
Public Const LVCOLFILEDATE = 3 ' ListView File DateTime Column Number
Public Const LVCOLFILEACCESS = 4 ' ListView File Access Column Number
Public Const FTFOLDER = "Folder" ' ListView File Type Folder
Public Const FTFILE = "File" ' ListView File Type File
Public Const FTSHORTCUT = "Shortcut" ' ListView File Type Shortcut
Public Const FTCHARDEV = "Charicter Device" ' Charicter Device File
Public Const FTBLOCKDEV = "Block Device" ' Block Device File